Merciful 5/Merciful - Disc 5.iso/software/y/youandmefrench1.dms/youandmefrench1.adf/InstallHD

Text File | 1997-01-25 | 5KB | 338 lines

; instalka YMF na dysku twardym
; autor: Michaî Kasza




;-------------- main -------------------


(if (= @language "polski")
    (
        (set askdir_prompt  (cat "Proszë podaê miejsce na dysku twardym \n"
                             ",w którym utworzony zostanie katalog 'YMF'\n"))

        (set insert_disk1 (cat "Poproszë o wîoûenie dysku 'YMF'\n"
                           "do dowolnej stacji dysków"))

        (set insert_disk2 (cat "Poproszë o wîoûenie dysku 'YMF_Dysk2'\n"
                           "do dowolnej stacji dysków"))

        (set insert_disk3 (cat "Poproszë o wîoûenie dysku 'YMF_Dysk3'\n"
                           "do dowolnej stacji dysków"))

        (set insert_disk4 (cat "Poproszë o wîoûenie dysku 'YMF_Dysk4'\n"
                           "do dowolnej stacji dysków"))


        (set end_install (cat  "Instalacja zakoïczona\n"
                           "Program bëdzie gotowy do uûycia\n"
                           "po zresetowaniu komputera"))
    )
    (

        (set askdir_prompt  "Where do you want to make drawer 'YMF'\n")

        (set insert_disk1 (cat "Please insert disk 'YMF'\n"
                           "to any drive"))

        (set insert_disk2 (cat "Please insert disk 'YMF_Dysk2'\n"
                           "to any drive"))

        (set insert_disk3 (cat "Please insert disk 'YMF_Dysk3'\n"
                           "to any drive"))

        (set insert_disk4 (cat "Please insert disk 'YMF_Dysk4'\n"
                           "to any drive"))

        (set end_install (cat  "Installation completed\n"
                           "Please reboot your computer"))

    )

)


(set DIR_DOCELOWY    (askdir
                    (prompt askdir_prompt)
                    (help @askdir-help)
                    (default @default-dest)
                )
)






(set DIR_DOCELOWY (tackon DIR_DOCELOWY "YMF"))

(if (= (exists DIR_DOCELOWY) 0)
    (makedir DIR_DOCELOWY)
)



(complete 0)


    ;-------- kopiowanie ----------




    ;---------------------- dysk pierwszy

(askdisk     (prompt insert_disk1)
            (help @askdisk-help)
        (dest "YMF")
)


    ;------------ biblioteki


(copylib
    (source "YMF:libs/powerpacker.library")
    (dest   "LIBS:")
    (confirm)
    (prompt "powerpacker.library")
    (help @copylib-help)
)

(copylib
    (source "YMF:libs/xpkmaster.library")
    (dest   "LIBS:")
    (confirm)
    (prompt "xpkmaster.library")
    (help @copylib-help)
)

(copylib
    (source "YMF:libs/diskfont.library")
    (dest   "LIBS:")
    (confirm)
    (prompt "diskfont.library")
    (help @copylib-help)
)

(if (< (getversion) 2359296)
    (copylib
        (source "YMF:libs/icon.library")
        (dest   "LIBS:")
        (confirm)
        (prompt "icon.library")
        (help @copylib-help)
    )
)


(copylib
    (source "YMF:libs/CrM.library")
    (dest   "LIBS:")
    (confirm)
    (prompt "CrM.library")
    (help @copylib-help)
)


(copylib
    (source "YMF:libs/compressors/xpkCRM2.library")
    (dest   "LIBS:compressors")
    (confirm)
    (prompt "compressors/xpkCRM2.library")
    (help @copylib-help)
)

(copylib
    (source "YMF:libs/compressors/xpkSQSH.library")
    (dest   "LIBS:compressors")
    (confirm)
    (prompt "compressors/xpkSQSH.library")
    (help @copylib-help)
)

    ;-------- fonty

(copyfiles
    (source "YMF:fonts")
    (dest   "FONTS:")
    (all)
)




(copyfiles
    (source "YMF:")
    (dest   DIR_DOCELOWY)
    (choices "DATA" "INTERFACE" "YMF" "SpecialKEYMAP" "FrancaisKEYMAP" "CzytajTo")
    (infos)
)

(if (exists "YMF:prefs")
    (copyfiles
        (source "YMF:prefs")
        (dest   DIR_DOCELOWY)
    )
)


(if (exists "YMF:scores")
    (copyfiles
        (source "YMF:scores")
        (dest   DIR_DOCELOWY)
    )
)


(if (not (exists "DEVS:Keymaps/f"))
    (copyfiles
        (source "YMF:DEVS/Keymaps/f")
        (dest   "DEVS:Keymaps")
    )
)

(if (not (exists "DEVS:Keymaps/YMFusamap"))
    (copyfiles
        (source "YMF:DEVS/Keymaps/YMFusamap")
        (dest   "DEVS:Keymaps")
    )
)





(complete 25)





;-------------------------------------------------------------------------
;    ewentualnie komendy do C: (jesli ich tam nie ma )
;    ,a nie sâ rezydentami (zaleûy od kickstart'a)
;-------------------------------------------------------------------------


(if (not (exists "C:IconX"))
    (copyfiles
        (source "YMF:c/IconX")
        (dest   "c:")
    )
)


(if (not (exists "C:SetMap"))
    (copyfiles
        (source "YMF:c/SetMap")
        (dest   "c:")
    )
)


(if (not (exists "C:PPMore"))
    (copyfiles
        (source "YMF:c/PPMore")
        (dest   "c:")
    )
)





    ;-------------------------- dysk drugi

(askdisk     (prompt insert_disk2)
            (help @askdisk-help)
        (dest "YMF_Dysk2")
)

(copyfiles
    (source "YMF_Dysk2:")
    (dest   DIR_DOCELOWY)
    (all)
)

(complete 50)


    ;------------------------- dysk trzeci

(askdisk     (prompt insert_disk3)
            (help @askdisk-help)
        (dest "YMF_Dysk3")
)

(copyfiles
    (source "YMF_Dysk3:")
    (dest   DIR_DOCELOWY)
    (all)
)

(complete 75)





    ;-------------------------- dysk czwarty

(askdisk     (prompt insert_disk4)
            (help @askdisk-help)
        (dest "YMF_Dysk4")
)


(copyfiles
    (source "YMF_Dysk4:")
    (dest   DIR_DOCELOWY)
    (all)
)

(complete 99)





    ;------- dopisanie assign'a

(if (= @language "polski")
    (
        (set startup_text (cat "Do pliku 'user-startup' zostanie\n"
                           "dopisana linia:\n"
                           "Assign >NIL: \"YMF:\" " "\""DIR_DOCELOWY"\""))
    )
    (
        (set startup_text (cat "in file 'user-startup'\n"
                           "including line:\n"
                           "Assign >NIL: \"YMF:\" " "\""DIR_DOCELOWY"\""))

    )
)




(startup "You and Me (apprenore le FRANÇAIS)"
    (prompt startup_text)
    (help @startup-help)
     (command "Assign >NIL: \"YMF:\" " "\""DIR_DOCELOWY"\"")
)


    ;kaniec filma




(exit end_install)